unit dconfigemail;

interface

uses
classes,
dObjects;

type
Tconfig_email=class(TdObjects)
private
fflagenviaemailgravar : boolean;
fidconfigemail        : integer;
fidempresa            : integer;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property flagenviaemailgravar : boolean read fflagenviaemailgravar write fflagenviaemailgravar;
 property idconfigemail : integer read fidconfigemail write fidconfigemail;
 property idempresa : integer read fidempresa write fidempresa;
end;

implementation

constructor Tconfig_email.create;
begin
inherited;

clear;
AddPK (['idconfigemail']) ;
TableName := 'config_email';

end;
destructor Tconfig_email.destroy;
begin
inherited destroy;
end;
procedure Tconfig_email.clear;
begin
 fflagenviaemailgravar :=false;
 fidconfigemail        :=0;
 fidempresa            :=0;
end;


end.
 